(describe-variable): Look for (defvar . <sym>) in the

load-history since `defvar' now uses this format.

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index 245bbd0e8d01dcd6cd5ea9c505efdedaac54e0c8..46a72b32ba20a71b472986ba559edd249a92e2c4 100644 (file)
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -482,7 +482,7 @@ it is displayed along with the global value."
            ;; Make a hyperlink to the library if appropriate.  (Don't
            ;; change the format of the buffer's initial line in case
            ;; anything expects the current format.)
-           (let ((file-name (symbol-file variable)))
+           (let ((file-name (symbol-file (cons 'defvar variable))))
              (when (equal file-name "loaddefs.el")
                ;; Find the real def site of the preloaded variable.
                (let ((location